    Ϊҹֺ̼ͬ̽߱ڴرдƪĵ
ĵнĲԴԼע˵߼ûο
вִԴ硣

    DirectX޸V1.0ĿΪMicrosoft Visual Studio 2008ԣ
Visual Basic.NET Framework汾2.0ϵͳWindows 7 콢32λ
ԻWindows XP Home Edition(32 bit)Windows XP Professional Edition(32 bit)
Windows 7 콢(32 bit)Windows 7콢(64 bit)Windows 8 Pro(64 bit)
Windows 8.1 Pre(64 bit)

---------------------------------------------------------------------------------------------------------------------

    еĲִ룺

1ϵͳ32λ64λ
	If Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE").IndexOf("64") <> -1 Then
             '64λϵͳ
        Else
             '32λϵͳ
        End If

2ϵͳ汾
	If Val(My.Computer.Info.OSVersion) < 6 Then
            'XP2000û.NETĲϵͳ
	Else
	    'VistaWin 7Դ.NETĲϵͳ
        End If

3ֹظС
	Dim procName As String
        procName = System.Diagnostics.Process.GetCurrentProcess().ProcessName	
	If (System.Diagnostics.Process.GetProcessesByName(procName)).GetUpperBound(0) > 0 Then
            MsgBox("ѾУ", MsgBoxStyle.Critical)
            Me.Dispose()
            Exit Sub
        End If

4ȡϵͳ汾š
	My.Computer.Info.OSFullName & My.Computer.Info.OSVersion

5̨̱߳ȡ
    	Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
            ProgressBar1.Value = e.ProgressPercentage
    	End Sub

6ϵͳDirectX Ϲߡ
	Shell("dxdiag.exe", AppWinStyle.NormalFocus)

7͵ʼ
	'дʼĵطȫɡmailд񡱵ĵطȫɡsmtp
        '滻ԭǷֹĳЩɱΪǶ
        Dim  As New System.Net.ʼ.Client(".163.com", 25)
        .Credentials = New System.Net.NetworkCredential(//E-mail name//, //E-mail password//)
        Dim ʼ As New System.Net.ʼ.ʼMessage()
        ʼ.Subject = //Your subject//
        ʼ.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
        ʼ.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
        ʼ.From = New System.Net.ʼ.ʼAddress(//Your E-mail address//)
        ʼ.Priority = System.Net.ʼ.ʼPriority.Normal
        ʼ.IsBodyHtml = True 'HTMLʽʼ,Ϊfalseʹı        
        ʼ.Body = //mail body// 'ʼ
        If Dir(//λ//) <> "" Then
            ʼ.Attachments.Add(New System.Net.ʼ.Attachment(//λ//)
        End If
        ʼ.To.Add(//ռ//)'ռ,ж,Զ
        .Send(ʼ)
        ʼ.Dispose()

8ٿرWindows7еAeroЧϵͳӲͬʱ֧AeroʱЧ
        Shell("sc.exe start uxsms") 'ٿAeroЧ
        Shell("sc.exe stop uxsms") 'ٹرAeroЧ

---------------------------------------------------------------------------------------------------------------------

    еı˼룺

1ΪʲôҪУ飿
    νУ飬ǼеļǷΪԭʼļ
    ϸĵ˿϶֣ᷢDataļдdllļЩDirectX޸ʱЩļΪ
ϵͳеļм޸бĵ˽滻Ϊжļ󷢲ϣû
У鹦ܵĻͻЩļΪ޸޸ɺϵͳ϶ȾˣΪ
ȫĽǶȳУ顣ֻҪ⵽˷ԭʼļͻֹͣ޸ʾУʧܡ
    õǿУ鷽ʽMD5У飬ҲǱȽϳõУ鷽ʽ֮һü鷽ʽŵǿԼļ΢Сȱ
ǶԴļУԭеϸﲻ׸

2ΪʲôĽ濴ȥܷḻ
    ҪӱƳ˵ˡ֮Ϊ˷ֽ׶εʹãĻǼԼ򵥡ࡣ
˵ļ򵥣ָǲļ򵥣ǹܼܲ򵥡ֻͻص㣬κ˿֡ʱϸƷζʱ
ֳֻᷢԶֹ޸DirectXô򵥡ϵͳеc++עϵͳdllļΪdllļҼ˵עж
ȹܻ˷ֳʵкܶǱд

3йڳаDirectX汾˵
    ڳ˵д˱DirectXʵϣ˳DirectX for Visual StudioеDirectX
ʹ˵ôдΪ˼ٶһûӰ졣֮ԱδDirectX for Visual StudioҪ濼ǣ
һЩʹõķǳ٣һûȫȥʹãӳӶȺ㣻ڶΪ
Visual StudioһԼֽ⣬Ҫĸջ濼Ƕơ